VB webbrowser 自动登陆问题 急!!! - billyzhao的专栏 - CSDN博客 billyzhao的专栏
  登录注册全站当前博客空间博客好友相册留言 VB webbrowser 自动登陆问题 急!!!收藏
写了一个自动登录程序,在有的网站用同样方法可以,下面这个不行,不知道为何?
>能写入username及password就是不能submit?
>错误提示 对象不支持该属性或方法 代码438
>谢谢.
>
>
>WebBrowser1.Navigate2 "http://202.84.17.88/chn"
>
>Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As 
Variant)
>Dim doc As IHTMLDocument2
>Set doc = WebBrowser1.Document
>If WebBrowser1.Busy = False And URL = "http://202.84.17.88/chn" Then
>     '填充带输入标记的元素集合
>     Dim Inputs2 As IHTMLElementCollection
>     Set Inputs2 = doc.All.tags("INPUT")
>     '选择第一个输入标记
>     Dim Element As IHTMLElement
>     Dim Element1 As IHTMLElement
>'    Dim Element2 As IHTMLElement
>     Set Element = Inputs2.Item(0)
>     Set Element1 = Inputs2.Item(1)
>'    Set Element2 = Inputs2.Item(2)
>     '使用正确的界面
>     Dim InputElement(2) As IHTMLInputElement
>     Set InputElement(0) = Element
>     Set InputElement(1) = Element1
>'    Set InputElement(2) = Element2
>     InputElement(0).Value = "aaaaaa"
>     InputElement(1).Value = "111111"
>     '调用该页第一个窗体上的提交
>     doc.Forms.Item(0).submit

发表于 @ 2005年06月15日 16:56:00|评论(1)|编辑
 | SAC 发表于2005年6月18日 18:41:00  IP:举报
  Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As 
  Variant) 

  Dim vDoc, vTag 
  Dim i As Integer 
  Set vDoc = WebBrowser1.Document 
  For i = 0 To vDoc.All.length - 1 '检测所有标签 
  If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签 
  Set vTag = vDoc.All(i) 
  If vTag.Name = "username" Then vTag.Value = "aaaaaa": '用户名字 PRINT I; 
  If vTag.Name = "pass" Then vTag.Value = "111111": '密码 
  If vTag.Type = "submit" And vTag.Value = "登录" Then vTag.Select: vTag.Click: 
  Exit Sub 


  End If 
  Next i 
  END SUB给billyzhao的留言只有注册用户才能发表评论！登录注册姓   名：
  校验码：
 订阅我的博客
    


   
  文章分类
  收藏
  存档
    2005年06月(1)
  软件项目交易
  Csdn Blog version 3.1a 
  Copyright © billyzhao  